home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Dir / Dir.config < prev    next >
Text File  |  1997-01-15  |  3KB  |  112 lines
  1. G4C
  2.  
  3. ; Ripped this off CliMaster..
  4.  
  5. winbig -1 -1 500 145 "Dir.gc Configuration"
  6. wintype 11110001
  7.  
  8. xonload
  9. setscreen dir.config $lv_fmscreen
  10. gosub dir.config loadprefs
  11. guiopen dir.config
  12.  
  13. xonclose
  14. guiquit dir.config
  15.  
  16. xonquit
  17. ifexists file env:.dir.prefs
  18.      delete env:#?ir.prefs
  19. endif
  20. delvar cfg_#?
  21.  
  22. ; -------------- the listview
  23.  
  24. xlistview 0 0 0 100 "" cfg_lvline "" 0 txt
  25. gadid 1
  26. gadfont topaz.font 8 000
  27. cgf_lvnum = $$LASTLV
  28. cutvar cfg_lvline cut word 1 cfg_var    ; get variable name
  29. cutvar cfg_lvline cut word 1 ""        ; cut off the = character
  30. extract cfg_lvline unquote cfg_prog    ; clean-up program name
  31. update dir.config 2 $cfg_prog
  32. setgad dir.config 2 on
  33.  
  34. ; -------------- The buttons
  35.  
  36. xbutton 0 100 100 13 "Save"
  37. gosub dir.config saveprefs
  38. guiquit dir.config
  39.  
  40.  
  41. xbutton 100 100 100 13 "Use"
  42. guiquit dir.config
  43.  
  44.  
  45. xbutton 300 100 100 13 "««« Move"
  46. lvmove dir.config 1 -10
  47.  
  48.  
  49. xbutton 400 100 100 13 "Move »»»"
  50. lvmove dir.config 1 10
  51.  
  52.  
  53. xtextin 20 123 400 13 "" cfg_prog "" 512
  54. gadid 2
  55. gosub dir.config updatelist
  56.  
  57.  
  58. xbutton 420 123 60 13 "Browse"
  59. reqfile -1 -1 300 -40 "Select File..." load cfg_prog SYS:
  60. update dir.config 2 $cfg_prog
  61. setgad dir.config 2 on
  62. gosub dir.config updatelist
  63.  
  64.  
  65. ; -------------- Routines
  66.  
  67. xroutine loadprefs
  68. setvar .dir.prefs ""
  69. gosub dir.config addprefs
  70. lvchange dir.config 1 env:.dir.prefs
  71.  
  72. xroutine saveprefs
  73. setvar .dir.prefs "G4C - Dir.gc preferences\n\nxOnLoad\n"
  74. gosub  dir.config addprefs
  75. append env:.dir.prefs "GuiQuit Dir.prefs\n" 
  76. extract  dir.gc guipath dcfg_path
  77. ifexists file env:dir.prefs
  78.      delete env:dir.prefs
  79. endif
  80. rename env:.dir.prefs env:dir.prefs
  81. action copy env:dir.prefs $dcfg_path
  82. delvar dcfg_path
  83.  
  84. xroutine addprefs
  85. append env:.dir.prefs 'DEF.EDITOR    = \"$DEF.EDITOR\"\n'
  86. append env:.dir.prefs 'DEF.MULTIVIEW = \"$DEF.MULTIVIEW\"\n'
  87. append env:.dir.prefs 'DEF.GUIDE     = \"$DEF.GUIDE\"\n'
  88. append env:.dir.prefs 'DEF.HEX       = \"$DEF.HEX\"\n'
  89. append env:.dir.prefs 'DEF.ILBM      = \"$DEF.ILBM\"\n'
  90. append env:.dir.prefs 'DEF.ANIM      = \"$DEF.ANIM\"\n'
  91. append env:.dir.prefs 'DEF.GIF       = \"$DEF.GIF\"\n'
  92. append env:.dir.prefs 'DEF.JPG       = \"$DEF.JPG\"\n'
  93. append env:.dir.prefs 'DEF.GFX       = \"$DEF.GFX\"\n'
  94. append env:.dir.prefs 'DEF.GFXCON    = \"$DEF.GFXCON\"\n'
  95. append env:.dir.prefs 'DEF.8SVX      = \"$DEF.8SVX\"\n'
  96. append env:.dir.prefs 'DEF.MOD       = \"$DEF.MOD\"\n'
  97. append env:.dir.prefs 'DEF.PP        = \"$DEF.PP\"\n'
  98.  
  99. xroutine updatelist
  100. setvar $cfg_var '$cfg_prog'
  101. setvar .dir.prefs ""
  102. gosub dir.config addprefs
  103. lvchange dir.config 1 env:.dir.prefs
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111. RESIZE_BIG 82 37 517 208 dir.config
  112.